home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / mdfjobd.arc / MDFJOBD.CMD < prev    next >
OS/2 REXX Batch file  |  1991-12-04  |  1KB  |  17 lines
  1. 000100860107/*PARMS ALLOW((*INTERACT)(*IPGM))                                   */
  2. 000200860107/*                                                                  */
  3. 000300860107/*  The MDFJOBDLIB command allows a simple modification to the      */
  4. 000400860107/*    existing INLLIBL parameter of a job description. A display    */
  5. 000500860107/*    is shown and the user may modify the sequence, add new        */
  6. 000600860107/*    libraries and delete libraries.                               */
  7. 000700860107/*                                                                  */
  8. 000800860107/*  The CPP is MDFJOBDLBC and it calls the RPG program MDFLIBL      */
  9. 000900860107/*    which uses the MDFLIBLD display file.                         */
  10. 001000860107/*                                                                  */
  11. 001100860107             CMD        PROMPT('Modify Job Description INLLIBL')
  12. 001200851111             PARM       KWD(JOBD) TYPE(QUAL1) MIN(1) +
  13. 001300851111                          PROMPT('Job description name:')
  14. 001400851111QUAL1:       QUAL       TYPE(*NAME) LEN(10) EXPR(*YES)
  15. 001500860107             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) SPCVAL(*LIBL) +
  16. 001600000000                          EXPR(*YES) PROMPT('Library name:')
  17.